home *** CD-ROM | disk | FTP | other *** search
/ TPUG - Toronto PET Users Group / TPUG Users Group CD / TPUG Users Group CD.iso / COMAL / B-Book Series / (k)b2.d64 / doctor < prev    next >
Text File  |  2007-02-28  |  2KB  |  57 lines
  1. 0010 //DOCTOR WILLIAM OLDHAM'S PROGRAM//
  2. 0020 //WRITTEN BY ELISABETH OLDHAM//
  3. 0030 //THIS VERSION: OCTOBER 2, 1981//
  4. 0040 //*
  5. 0050 //DECLARATIONS//
  6. 0060 DIM COLOUR$ OF 10, ANSW$ OF 10
  7. 0070 //*
  8. 0080 //MAINLINES//
  9. 0090 PRINT CHR$(147) //CLEAR SCREEN//
  10. 0100 REPEAT 
  11. 0110 FOR I:=1 TO 8 DO PRINT  //8 DOWN
  12. 0120 PRINT "WHAT IS THE COLOUR OF YOU FACE"
  13. 0130 PRINT "(PALE/PINK/BLUE/YELLOW)",
  14. 0140 INPUT COLOUR$
  15. 0150 DIAGNOSIS
  16. 0160 PRINT CHR$(19) //HOME
  17. 0170 PRINT "MORE PATIENTS (Y/N)",
  18. 0180 INPUT ANSW$
  19. 0190 PRINT CHR$(147) //CLEAR SCREEN//
  20. 0200 UNTIL ANSW$="N"
  21. 0210 //*
  22. 0220 PROC DIAGNOSIS 
  23. 0230 PRINT 
  24. 0240 CASE COLOUR$ OF
  25. 0250 WHEN "PALE"
  26. 0260 PRINT "YOU SUFFER FROM ANAMEIA"
  27. 0265 PRINT "AND NEED SOME IRON."
  28. 0270 PRINT "GO HOME AND MAKE SOUP"
  29. 0275 PRINT "FROM YOUR BICYCLE."
  30. 0280 WHEN "PINK"
  31. 0290 PRINT "YOU ARE JUST FINE"
  32. 0295 PRINT "PLEASE DO NOT WASTE MY TIME."
  33. 0300 PRINT "DID YOU NOT KNOW"
  34. 0305 PRINT "THAT MONEY IS VERY TIGHT IN"
  35. 0310 PRINT "THE NATIONAL HEALTH SERVICE THESE DAYS."
  36. 0320 WHEN "BLUE"
  37. 0330 PRINT "YOU HAVE BEEN DRINKING FAR TOO MUCH."
  38. 0340 PRINT "YOU ARE HEREBY FORBIDDEN TO TAKE ANY"
  39. 0350 PRINT "BEVERAGES FOR THE NEXT 30 YEAR - IF"
  40. 0360 PRINT "YOU GET THAT OLD!"
  41. 0370 WHEN "YELLOW"
  42. 0380 PRINT "ARE YOU A CHINESE (Y/N)",
  43. 0390 INPUT ANSW$
  44. 0400 IF ANSW$="Y" THEN
  45. 0410 PRINT 
  46. 0420 PRINT "THERE IS NOTHING THE MATTER WITH YOU."
  47. 0430 PRINT "THE COLOUR OF YOUR SKIN IS NORMAL."
  48. 0440 ELSE 
  49. 0450 PRINT "YOU HAVE GOT THE YELLOW FEVER, AND YOU"
  50. 0460 PRINT "SHOULD NOT GO TO AFRICA ANY MORE."
  51. 0470 PRINT "YOU MAY TRY TO PAINT YOUR SKIN TO"
  52. 0480 PRINT "LOOK A BIT MORE ATTRACTIVE."
  53. 0490 ENDIF 
  54. 0500 ENDCASE 
  55. 0510 ENDPROC DIAGNOSIS
  56. 0520 //
  57.